home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / TESTDATE.M < prev    next >
Encoding:
Text File  |  1986-02-05  |  2.3 KB  |  73 lines
  1. MODULE TestDate;
  2.  
  3.   (* Test-Module für 'DateUti'. *)
  4.   
  5.   FROM InOut IMPORT ReadCard, WriteCard, Read, WriteString, WriteLn,
  6.                     WriteInt;
  7.   
  8.   FROM DateUti IMPORT WkDayType, mkDate, WeekDay, AddDays, DaysBetween;
  9.   
  10.   VAR
  11.     d1 : mkDate;
  12.     d2 : mkDate;
  13.     wd : WkDayType;
  14.     c  : CHAR;
  15.     
  16. BEGIN
  17.   REPEAT
  18.     WriteLn;
  19.     WriteLn;
  20.     WriteString ('Tag 1   := ');
  21.     ReadCard (d1.day);
  22.     WriteString ('Monat 1 := ');
  23.     ReadCard (d1.month);
  24.     WriteString ('Jahr 1  := ');
  25.     ReadCard (d1.year);
  26.     WriteLn;
  27.     WriteString ('Tag 2   := ');
  28.     ReadCard (d2.day);
  29.     WriteString ('Monat 2 := ');
  30.     ReadCard (d2.month);
  31.     WriteString ('Jahr 2  := ');
  32.     ReadCard (d2.year);
  33.     
  34.     WriteLn;
  35.     WriteInt (DaysBetween (d1, d2), 1);
  36.     WriteString (' Tage sind dazwischen.');
  37.     WriteLn;
  38.     
  39.     WriteString ('Das 1. Datum plus 100 Tage ergibt den ');
  40.     d1 := AddDays (d1, 100);
  41.     WriteCard (d1.day, 1);
  42.     WriteString ('.');
  43.     WriteCard (d1.month, 1);
  44.     WriteString ('.');
  45.     WriteCard (d1.year, 1);
  46.     WriteString ('.');
  47.     WriteLn;
  48.     WriteString ('Der ');
  49.     WriteCard (d1.day, 1);
  50.     WriteString ('.');
  51.     WriteCard (d1.month, 1);
  52.     WriteString ('.');
  53.     WriteCard (d1.year, 1);
  54.     WriteString (' ist ein ');
  55.     
  56.     CASE WeekDay (d1) OF
  57.       mon : WriteString ('Montag')|
  58.       tue : WriteString ('Dienstag')|
  59.       wed : WriteString ('Mittwoch')|
  60.       thu : WriteString ('Donnerstag')|
  61.       fri : WriteString ('Freitag')|
  62.       sat : WriteString ('Samstag')|
  63.       sun : WriteString ('Sonntag')|
  64.     END;
  65.     WriteString ('.');
  66.     WriteLn;
  67.     WriteLn;
  68.     WriteString ('Nochmal (j,n) ? ');
  69.     Read (c);
  70.   UNTIL (c = 'n');
  71. END TestDate.
  72. (* $FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$0000053C$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90$FFF81D90Ç$000002F7T.T.T.T.T.T.T.T.T.T.T.T.T.......................................................$0000053F$00000382$0000045B$00000523$0000067B$000002F7$00000480$FFF81D90$00000681$0000058D$000005B8$000005DD$00000603$0000062C$00000651$0000067BÿÇÇ*)
  73.